home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / screen.swg / 0045_Wait for Vertical Retrace.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-11-02  |  480 b   |  15 lines
  1. {
  2. SANTERI SALMINEN
  3.  
  4. > how can i wait For the vertical retrace, in Pascal.
  5.  
  6. Some routines For retraces:
  7. As you can see, $3DA reveals all of them.
  8. }
  9.  
  10.  Repeat Until Port[$3DA] And 8 = 8; { Wait For Vertical retrace              }
  11.  Repeat Until Port[$3DA] And 8 = 0; { Wait For the end of Vertical retrace   }
  12.  Repeat Until Port[$3DA] And 1 = 1; { Wait For Horizontal retrace            }
  13.  Repeat Until Port[$3DA] And 1 = 0; { Wait For the end of Horizontal retrace }
  14.  
  15.